args =inputbox("size =?",args,30)
args = trim(args)
dim doc
set doc = Application.ActiveDocument
dim unit,unit_str
unit = doc.Unit	
if args="" then 
	select case unit
		case 2'mil
			args = cdbl(20)
		case 4'mm
			args = cdbl(0.5)
		case else
			msgbox "please switch units to mm or mils"
			exit sub
	end select
end if
args = cdbl(args)

dim objs,obj
set objs = doc.GetObjects(ppcbObjectTypeLabel,, false) 
for each obj in objs
	x = obj.Component.PositionX
	y = obj.Component.PositionY
	
	obj.Height=args
	obj.LineWidth=3
	obj.HorzJustification = ppcbJustifyHCenter
	obj.VertJustification = ppcbJustifyVCenter
	obj.PositionX(, ppcbOriginTypeDesign) = x
	obj.PositionY(, ppcbOriginTypeDesign) = y
	obj.RightReading = ppcbRightReadingOrthogonal
next
msgbox "done"	